home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Origami / bindings / vi-fun / commandmodek < prev    next >
Encoding:
Text File  |  1996-09-27  |  11.6 KB  |  290 lines
  1. (keybind describe-bindings (@if-using (USE_INSERT) $esc @fi "H))
  2. {{{  compilcated stuff
  3. {{{  Set arguments
  4. (keybind  vi-set-argument-0 (@if-using (USE_INSERT) $esc @fi "0))
  5. (keybind  vi-set-argument-1 (@if-using (USE_INSERT) $esc @fi "1))
  6. (keybind  vi-set-argument-2 (@if-using (USE_INSERT) $esc @fi "2))
  7. (keybind  vi-set-argument-3 (@if-using (USE_INSERT) $esc @fi "3))
  8. (keybind  vi-set-argument-4 (@if-using (USE_INSERT) $esc @fi "4))
  9. (keybind  vi-set-argument-5 (@if-using (USE_INSERT) $esc @fi "5))
  10. (keybind  vi-set-argument-6 (@if-using (USE_INSERT) $esc @fi "6))
  11. (keybind  vi-set-argument-7 (@if-using (USE_INSERT) $esc @fi "7))
  12. (keybind  vi-set-argument-8 (@if-using (USE_INSERT) $esc @fi "8))
  13. (keybind  vi-set-argument-9 (@if-using (USE_INSERT) $esc @fi "9))
  14. }}}
  15. {{{  moving cursor/display
  16.    {{{  character commands
  17.    {{{  move by 1 char commands
  18.    (keybind vi-backward-character (@if-using (USE_INSERT) $esc @fi "h))
  19.    (keybind vi-backward-character (@if-using (USE_INSERT) $esc @fi C-H))
  20.    (keybind vi-backward-character (@if-using (USE_INSERT) $esc @fi C-?))
  21.  
  22.    (keybind vi-forward-character (@if-using (USE_INSERT) $esc @fi " ))
  23.    (keybind vi-forward-character (@if-using (USE_INSERT) $esc @fi "l))
  24.  
  25.    (keybind vi-underscore (@if-using (USE_INSERT) $esc @fi "-))
  26.    (keybind vi-underscore (@if-using (USE_INSERT) $esc @fi "_))
  27.  
  28.    (keybind vi-previous-line (@if-using (USE_INSERT) $esc @fi "k))
  29.    (keybind vi-previous-line (@if-using (USE_INSERT) $esc @fi C-P))
  30.  
  31.    (keybind vi-plus (@if-using (USE_INSERT) $esc @fi "+))
  32.    (keybind vi-plus (@if-using (USE_INSERT) $esc @fi C-M))
  33.    (keybind vi-plus (@if-using (USE_INSERT) $esc @fi C-J))
  34.  
  35.    (keybind vi-next-line (@if-using (USE_INSERT) $esc @fi C-N))
  36.    (keybind vi-next-line (@if-using (USE_INSERT) $esc @fi "j))
  37.    {{{  ( terminal ( sun )
  38.    ( terminal ( sun )
  39.    (keybind vi-backward-character ($left))
  40.    (keybind vi-forward-character ($right))
  41.    (keybind vi-previous-line ($up))
  42.    (keybind vi-next-line ($down))
  43.    )
  44.    }}}
  45.    {{{  ( terminal ( SUN )
  46.    ( terminal ( SUN )
  47.    (keybind vi-backward-character ($left))
  48.    (keybind vi-forward-character ($right))
  49.    (keybind vi-previous-line ($up))
  50.    (keybind vi-next-line ($down))
  51.    )
  52.    }}}
  53.    }}}
  54.    {{{  move to character commands
  55.    ; These are NOT 100% vi compatible, in that
  56.    ; - more than one character can be used as a search string
  57.    ; - return has to be typed before the action is carried out
  58.    ; - these do not yet work as motions as in vi
  59.  
  60.    (keybind find-char-right (@if-using (USE_INSERT) $esc @fi "f))
  61.    (keybind find-char-left(@if-using (USE_INSERT) $esc @fi "F))
  62.    (keybind one-before (@if-using (USE_INSERT) $esc @fi "t))
  63.    (keybind one-after  (@if-using (USE_INSERT) $esc @fi "T))
  64.    (keybind replace-chars (@if-using (USE_INSERT) $esc @fi "r))
  65.    }}}
  66.    }}}
  67.    {{{  word/line/fold
  68.    (keybind vi-backward-word (@if-using (USE_INSERT) $esc @fi "b))
  69.    (keybind vi-backward-WORD (@if-using (USE_INSERT) $esc @fi "B))
  70.    (keybind vi-forward-word (@if-using (USE_INSERT) $esc @fi "w))
  71.    (keybind vi-forward-WORD (@if-using (USE_INSERT) $esc @fi "W))
  72.    (keybind vi-end-word (@if-using (USE_INSERT) $esc @fi "e))
  73.    (keybind vi-start-word (@if-using (USE_INSERT) $esc @fi "E))
  74.  
  75.    (keybind vi-beginning-of-line (@if-using (USE_INSERT) $esc @fi "^))
  76.    (keybind vi-end-of-line (@if-using (USE_INSERT) $esc @fi "$))
  77.    (keybind vi-beginning-of-fold (@if-using (USE_INSERT) $esc @fi "g))
  78.    (keybind vi-end-of-fold (@if-using (USE_INSERT) $esc @fi "v">))
  79.    }}}
  80.    {{{  !sentence, paragraph, section
  81.    ;(
  82.    ;)
  83.    ;[
  84.    ;]
  85.    ;{
  86.    ;}
  87.  
  88.    }}}
  89.    {{{  gotos
  90.    ; '
  91.    ; `
  92.    (keybind proper-percent (@if-using (USE_INSERT) $esc @fi "%))
  93.    (keybind vi-goto-line (@if-using (USE_INSERT) $esc @fi "G)) ; this will be a function
  94.    (keybind vi-goto-column (@if-using (USE_INSERT) $esc @fi "|))
  95.    }}}
  96.    {{{  page
  97.    (keybind vi-C-B (@if-using (USE_INSERT) $esc @fi C-B))
  98.    @if-using ($prev_page) (keybind vi-C-B (@if-using (USE_INSERT) $esc @fi $prev_page)) @fi
  99.    (keybind vi-C-F (@if-using (USE_INSERT) $esc @fi C-F))
  100.    @if-using ($next_page) (keybind vi-C-F (@if-using (USE_INSERT) $esc @fi $next_page)) @fi
  101.  
  102.    (keybind vi-C-B (@if-using (USE_INSERT) $esc @fi C-U))
  103.    (keybind vi-C-F (@if-using (USE_INSERT) $esc @fi C-D))
  104.    (keybind center-and-redraw-display- (@if-using (USE_INSERT) $esc @fi C-R))
  105.    (keybind redraw-display- (@if-using (USE_INSERT) $esc @fi C-L))
  106.    }}}
  107.    {{{  display
  108.    (keybind describe-fold (@if-using (USE_INSERT) $esc @fi C-G))
  109.    }}}
  110. }}}
  111. {{{  Folding multiple buffer and motion stuff is bound here
  112.     {{{  folding
  113.      (keybind  crm-V  (@if-using (USE_INSERT) $esc @fi "V))
  114.      ; crm-v does not exist!
  115.  
  116.      (keybind vi-open-fold (@if-using (USE_INSERT) $esc @fi "v "o))
  117.      (keybind vi-close-fold (@if-using (USE_INSERT) $esc @fi "v "c))
  118.      (keybind vi-enter-fold (@if-using (USE_INSERT) $esc @fi "v "e))
  119.      (keybind vi-exit-fold (@if-using (USE_INSERT) $esc @fi "v "x))
  120.      (keybind vi-unfold-fold (@if-using (USE_INSERT) $esc @fi "v "u))
  121.      (keybind vi-auto-header (@if-using (USE_INSERT) $esc @fi "v "h))
  122.      (keybind vi-toggle-file-fold (@if-using (USE_INSERT) $esc @fi "v "f))
  123.      (keybind vi-attach-file-to-fold (@if-using (USE_INSERT) $esc @fi "v "A))
  124.      (keybind vi-set-language (@if-using (USE_INSERT) $esc @fi "v "l))
  125.      (keybind create-line-fold (@if-using (USE_INSERT) $esc @fi "v "v))
  126.      (keybind mtool-top (@if-using (USE_INSERT) $esc @fi "v "t))
  127.      (keybind mtool-bot (@if-using (USE_INSERT) $esc @fi "v "b))
  128.      ; add mtool open and close flds later
  129.     }}}
  130.     {{{  deleting
  131.     (keybind crm-d (@if-using (USE_INSERT) $esc @fi "d))
  132.     (keybind crm-D (@if-using (USE_INSERT) $esc @fi "D))
  133.     (keybind crm-c (@if-using (USE_INSERT) $esc @fi "c))
  134.     (keybind vi-x (@if-using (USE_INSERT) $esc @fi "x))
  135.     (keybind vi-X (@if-using (USE_INSERT) $esc @fi "X))
  136.     }}}
  137.     {{{  yanking & putting
  138.     (keybind vi-put-buffer-above (@if-using (USE_INSERT) $esc @fi "P))
  139.     (keybind vi-put-buffer (@if-using (USE_INSERT) $esc @fi "p))
  140.     (keybind crm-Y (@if-using (USE_INSERT) $esc @fi "Y))
  141.     (keybind crm-y (@if-using (USE_INSERT) $esc @fi "y))
  142.     }}}
  143.     {{{  multiple buffers
  144.     {{{  open a named buffer
  145.     (keybind open-buffer(@if-using (USE_INSERT) $esc @fi "= "o))   ; open a new buffer
  146.     (keybind open-adjacent-buffer (@if-using (USE_INSERT) $esc @fi "= "A))   ; open a new buffer
  147.     ;(keybind open-left-buffer(@if-using (USE_INSERT) $esc @fi "= "I))   ; open a new buffer
  148.     ;(keybind open-buffer-above(@if-using (USE_INSERT) $esc @fi "= "O))   ; open a new buffer
  149.     }}}
  150.     {{{  open a buffer from the numbered list
  151.     ;(keybind open-list-buffer(@if-using (USE_INSERT) $esc @fi "= "l "o))   ; open a new buffer
  152.     ;(keybind open-list-adjacent-buffer(@if-using (USE_INSERT) $esc @fi "= "l "A))   ; open a new buffer
  153.     ;(keybind open-list-left-buffer(@if-using (USE_INSERT) $esc @fi "= "l "I))   ; open a new buffer
  154.     ;(keybind open-list-buffer-above(@if-using (USE_INSERT) $esc @fi "= "l "O)); open a new buffer x from internal list
  155.     }}}
  156.     {{{  change buffer up down left right
  157.     (keybind down-buffer (@if-using (USE_INSERT) $esc @fi "= "j))
  158.     (keybind up-buffer   (@if-using (USE_INSERT) $esc @fi "= "k))
  159.     (keybind left-buffer (@if-using (USE_INSERT) $esc @fi "= "h))
  160.     (keybind right-buffer (@if-using (USE_INSERT) $esc @fi "= "l))
  161.     {{{  ( terminal ( SUN )
  162.     ( terminal ( SUN )
  163.     @if-using not (USE_INSERT)
  164.     (keybind left-buffer ("= $left))
  165.     (keybind right-buffer ("= $right))
  166.     (keybind up-buffer ("= $up))
  167.     (keybind down-buffer ("= $down))
  168.     @fi
  169.     )
  170.     }}}
  171.     }}}
  172.     (keybind full-size-buffer (@if-using (USE_INSERT) $esc @fi "= "f))
  173.     (keybind exit-buffer (@if-using (USE_INSERT) $esc @fi "= "q))
  174.     (keybind change-buffername (@if-using (USE_INSERT) $esc @fi "= "N))
  175.     ;(keybind make-in-new-window (@if-using (USE_INSERT) $esc @fi "= "M))
  176.     ;(keybind designate-tag-window (@if-using (USE_INSERT) $esc @fi "= "T))
  177.     ;(keybind tag-mode-this-buffer (@if-using (USE_INSERT) $esc @fi "= "t "t))
  178.     ;(keybind tag-mode-designated-buffer (@if-using (USE_INSERT) $esc @fi "= "t "o))
  179.     (keybind enter-resize-mode (@if-using (USE_INSERT) $esc @fi "= "r))
  180.     }}}
  181. }}}
  182. {{{  !undo
  183. ;(keybind vi-undo-line (@if-using (USE_INSERT) $esc @fi "u))
  184. }}}
  185. {{{  Search and replace
  186. ; macro needed for query -- need to check trailing chars
  187. ; for regexp, call real query s/r for each item
  188. ; this means that there will have to be some internal bindings for commands
  189. ; which are not really to be provided -- internal mode?
  190. (keybind search-f (@if-using (USE_INSERT) $esc @fi "/) )
  191. (keybind search-r (@if-using (USE_INSERT) $esc @fi "?))
  192. (keybind il-search-f (@if-using (USE_INSERT) $esc @fi C-S))
  193. (keybind get-x-selection(@if-using (USE_INSERT) $esc @fi C-X))
  194. (keybind repeat-forward (@if-using (USE_INSERT) $esc @fi "n))
  195. (keybind repeat-reverse (@if-using (USE_INSERT) $esc @fi "N))
  196. }}}
  197. {{{  formating
  198. (keybind proper-toggle-case (@if-using (USE_INSERT) $esc @fi "~))
  199. ; <
  200. (keybind crm-shift-in (@if-using (USE_INSERT) $esc @fi ">))
  201. (keybind crm-shift-out (@if-using (USE_INSERT) $esc @fi "<))
  202. (keybind vi-append-to-previous-line (@if-using (USE_INSERT) $esc @fi "J))
  203. }}}
  204. {{{  !repetition
  205. ;.
  206. ;&
  207. }}}
  208. {{{  getting out
  209. (keybind real-save-and-exit-origami (@if-using (USE_INSERT) $esc @fi "Z"Z))
  210. }}}
  211. {{{  !buffers
  212. ; @
  213. ; "
  214. }}}
  215. {{{  marking
  216.     (keybind vi-set-mark (@if-using (USE_INSERT) $esc @fi "m))
  217.     (keybind vi-goto-mark (@if-using (USE_INSERT) $esc @fi "'))
  218.     (keybind vi-goto-mark-exact (@if-using (USE_INSERT) $esc @fi "`))
  219. }}}
  220. {{{  !bells & whistles
  221.   {{{  Macros
  222.   (keybind define-macro (@if-using (USE_INSERT) $esc @fi C-Y ))
  223.   (keybind execute-macro (@if-using (USE_INSERT) $esc @fi C-E ))
  224.   }}}
  225.   {{{  filter line
  226.   (keybind vi-filter-line (@if-using (USE_INSERT) $esc @fi "! "! ))
  227.  
  228.   }}}
  229. }}}
  230.  
  231. {{{  entering insert mode
  232. ;R
  233. ;c
  234. ;C
  235. {{{  Aa
  236. (keybind append(@if-using (USE_INSERT) $esc @fi "a))
  237. (keybind Append(@if-using (USE_INSERT) $esc @fi "A))
  238. }}}
  239. {{{  Ii
  240. (keybind insert (@if-using (USE_INSERT) $esc @fi "i))
  241. (keybind Insert (@if-using (USE_INSERT) $esc @fi "I))
  242. }}}
  243. {{{  Oo
  244. (keybind Open (@if-using (USE_INSERT) $esc @fi "O))
  245. (keybind open (@if-using (USE_INSERT) $esc @fi "o))
  246. }}}
  247. }}}
  248. {{{  entering ex mode
  249.   (keybind enter-ex-mode (@if-using (USE_INSERT) $esc @fi ":))
  250. }}}
  251. }}}
  252. {{{  basic stuff
  253. ;(keybind quote-character (@if-using (USE_INSERT) $esc @fi C-V))
  254. }}}
  255. {{{  extended mode /control tags
  256.   {{{  tags
  257.   (keybind push-tag (@if-using (USE_INSERT) $esc @fi C-]))
  258.   (keybind pop-tag (@if-using (USE_INSERT) $esc @fi C-T))
  259.   }}}
  260.   {{{  keywords
  261.   }}}
  262.   {{{  filename completion
  263.   }}}
  264.   (keybind suspend-origami (@if-using (USE_INSERT) $esc @fi C-Z))
  265.   {{{  status line
  266.   (keybind status-line-off- (@if-using (USE_INSERT) $esc @fi "M "s "+))
  267.   (keybind status-line-on- (@if-using (USE_INSERT) $esc @fi "M "s "-))
  268.   }}}
  269.   {{{  extended mode and stop line mode
  270.   (keybind add-mode-extended (@if-using (USE_INSERT) $esc @fi "M "x "+))
  271.   (keybind delete-mode-extended (@if-using (USE_INSERT) $esc @fi "M "x "-))
  272.   (keybind del-line-stop-mode (@if-using (USE_INSERT) $esc @fi "M "l "s "-))
  273.   (keybind add-line-stop-mode (@if-using (USE_INSERT) $esc @fi "M "l "s "+))
  274.   (keybind vi-add-mode-autosave (@if-using (USE_INSERT) $esc @fi "M "a "+))
  275.   (keybind vi-del-mode-autosave (@if-using (USE_INSERT) $esc @fi "M "a "-))
  276.   }}}
  277.   {{{  wrap and fill para
  278.   (keybind vi-add-mode-wrap (@if-using (USE_INSERT) $esc @fi "M "w "+))
  279.   (keybind vi-delete-mode-wrap (@if-using (USE_INSERT) $esc @fi "M "w "-))
  280.   (keybind vi-set-fill-column (@if-using (USE_INSERT) $esc @fi "M "f "c))
  281.   (keybind vi-fill-paragraph (@if-using (USE_INSERT) $esc @fi "M "f "p))
  282.   }}}
  283.   {{{  goto mode
  284.   (keybind fast-goto (@if-using (USE_INSERT) $esc @fi "M "g "f))
  285.   (keybind slow-goto (@if-using (USE_INSERT) $esc @fi "M "g "s))
  286.   }}}
  287.   {{{  macros
  288.   }}}
  289. }}}
  290.